Sub Activer_la_macro()

'Le descriptif de la macro est ici, en vert.
'Le descriptif concerne la ligne en dessous.

'Screen Updating = False --> viter le refresh de l'cran, ralentissant l'ordinateur
 Application.ScreenUpdating = False
 
'Dim Ligne As Long --> Dimensions (Dim), toute la longueur possible (As long)
 Dim Ligne As Long
 
'Range("A65536") --> va jusqu' la dernire ligne possible du fichier excel
'Row to 3 --> commence les sauts de ligne  partir de la 3me ligne (la 1re est la lgende, la 2nde le premier mois)
'Step -1 --> saut  partir de la ligne L-1 (celle juste au dessus)
 For Ligne = Range("A65536").End(xlUp).Row To 3 Step -1
 
'Si les donnes de la colonne "K" d'une ligne diffrent des donnes de la colonne "K" de la ligne d'en dessous, alors
  If Range("K" & Ligne) <> Range("K" & Ligne - 1) Then
  
'Insertion d'une ligne entire
 Range("K" & Ligne).EntireRow.Insert
 Sub Activer_la_macro()

'Le descriptif de la macro est ici, en vert.
'Le descriptif concerne la ligne en dessous.

'Screen Updating = False --> viter le refresh de l'cran, ralentissant l'ordinateur
 Application.ScreenUpdating = False
 
'Dim Ligne As Long --> Dimensions (Dim), toute la longueur possible (As long)
 Dim Ligne As Long
 
'Range("A65536") --> va jusqu' la dernire ligne possible du fichier excel
'Row to 3 --> commence les sauts de ligne  partir de la 3me ligne (la 1re est la lgende, la 2nde le premier mois)
'Step -1 --> saut  partir de la ligne L-1 (celle juste au dessus)
 For Ligne = Range("A65536").End(xlUp).Row To 3 Step -1
 
'Si les donnes de la colonne "K" d'une ligne diffrent des donnes de la colonne "K" de la ligne d'en dessous, alors
  If Range("K" & Ligne) <> Range("K" & Ligne - 1) Then
  
'Insertion d'une ligne entire
 Range("K" & Ligne).EntireRow.Insert
 
'Fin de la condition
End If

'Ensuite
Next

'Slection de la case "L3"
Range("L3").Select

'Fin de la macro
End Sub